home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _GUICtrlTreeViewSetIndent.au3 < prev    next >
Encoding:
Text File  |  2006-08-04  |  2.7 KB  |  75 lines
  1. #include <GUIConstantsEx.au3>
  2. #include <GuiTreeView.au3>
  3. #include <GuiStatusBar.au3>
  4.  
  5. opt("MustDeclareVars", 1)
  6.  
  7. Global Const $Turquoise = 0x40e0d0
  8. Global Const $Crimson = 0xDC143C
  9. Global Const $White = 0xFFFFFF
  10.  
  11. Dim $myGui, $treeview, $generalitem, $displayitem, $aboutitem
  12. Dim $compitem, $useritem, $resitem, $otheritem, $Status, $startlabel, $aboutlabel
  13. Dim $compinfo, $msg, $cancelbutton
  14.  
  15. $myGui = GUICreate("TreeView Set Indent", 392, 254)
  16.  
  17. $treeview = GUICtrlCreateTreeView(6, 6, 100, 150, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)
  18. $generalitem = GUICtrlCreateTreeViewItem("General", $treeview)
  19. $displayitem = GUICtrlCreateTreeViewItem("Display", $treeview)
  20. $aboutitem = GUICtrlCreateTreeViewItem("About", $generalitem)
  21. $compitem = GUICtrlCreateTreeViewItem("Computer", $generalitem)
  22. $useritem = GUICtrlCreateTreeViewItem("User", $generalitem)
  23. $resitem = GUICtrlCreateTreeViewItem("Resolution", $displayitem)
  24. $otheritem = GUICtrlCreateTreeViewItem("Other", $displayitem)
  25. $Status = _GuiCtrlStatusBarCreate($myGui, -1, "")
  26. _GuiCtrlStatusBarSetSimple($Status)
  27.  
  28. $startlabel = GUICtrlCreateLabel("TreeView Demo", 190, 90, 100, 20)
  29. $aboutlabel = GUICtrlCreateLabel("This little scripts demonstates the using of a treeview-control.", 190, 70, 100, 60)
  30. GUICtrlSetState(-1, $GUI_HIDE)
  31. $compinfo = GUICtrlCreateLabel("Name:" & @TAB & @ComputerName & @LF & "OS:" & @TAB & @OSVersion & @LF & "SP:" & @TAB & @OSServicePack, 120, 30, 200, 80)
  32. GUICtrlSetState(-1, $GUI_HIDE)
  33.  
  34. $cancelbutton = GUICtrlCreateButton("Cancel", 180, 185, 70, 20)
  35.  
  36. _GUICtrlTreeViewSetBkColor ($treeview, $Turquoise)
  37. _GUICtrlTreeViewSetTextColor ($treeview, $Crimson)
  38. _GUICtrlTreeViewSetLineColor ($treeview, $White)
  39. _GUICtrlTreeViewSetIndent ($treeview, 10)
  40. GUISetState()
  41. _GuiCtrlStatusBarSetText($Status,"Indent: " & _GUICtrlTreeViewGetIndent ($treeview) & " in pixels",255)
  42. While 1
  43.     $msg = GUIGetMsg()
  44.     Select
  45.         Case $msg = $cancelbutton Or $msg = $GUI_EVENT_CLOSE
  46.             ExitLoop
  47.             
  48.         Case $msg = $generalitem
  49.             ConsoleWrite($generalitem & @LF)
  50.             GUIChangeItems($aboutlabel, $compinfo, $startlabel, $startlabel)
  51.             
  52.         Case $msg = $aboutitem
  53.             GUICtrlSetState($compinfo, $GUI_HIDE)
  54.             GUIChangeItems($startlabel, $startlabel, $aboutlabel, $aboutlabel)
  55.             
  56.         Case $msg = $compitem
  57.             GUIChangeItems($startlabel, $aboutlabel, $compinfo, $compinfo)
  58.             
  59.     EndSelect
  60. WEnd
  61.  
  62. GUIDelete()
  63. Exit
  64.  
  65. Func GUIChangeItems($hidestart, $hideend, $showstart, $showend)
  66.     Local $idx
  67.     
  68.     For $idx = $hidestart To $hideend
  69.         GUICtrlSetState($idx, $GUI_HIDE)
  70.     Next
  71.     For $idx = $showstart To $showend
  72.         GUICtrlSetState($idx, $GUI_SHOW)
  73.     Next
  74. EndFunc   ;==>GUIChangeItems
  75.